; ORIGINAL: 3dt2.1/examples/wcs.scm
; $Id: wcs.scm,v 1.3 1996/10/21 15:59:47 aed Exp $
;======================================================================
; Purpose---
;    Define procedures for working with Working Coordinate Systems
;
;======================================================================

(require 'pick "pick.scm")

;; Define origin, x, y and z axes
(define origin wcs:origin)
(define x-axis wcs:x-axis)
(define y-axis wcs:y-axis)
(define z-axis wcs:z-axis)

;; define a wcs and make it active
(define set-wcs (lambda (o x y) (wcs:set-active (wcs o x y))))
(define new-wcs (lambda () (wcs:set-active (wcs (~e) (~e) (~e)))))
